object frmeWorkers: TfrmeWorkers
  Left = 0
  Top = 0
  Width = 443
  Height = 277
  Align = alClient
  AutoSize = True
  TabOrder = 0
  object pnlClient: TPanel
    Left = 0
    Top = 0
    Width = 443
    Height = 277
    Align = alClient
    BevelInner = bvSpace
    BevelOuter = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 2
      Top = 2
      Width = 439
      Height = 28
      AutoSize = True
      ButtonHeight = 24
      ButtonWidth = 25
      Caption = 'ToolBarClients'
      Images = DM.ImageListMain
      TabOrder = 0
      object ToolButtonAddClient: TToolButton
        Left = 0
        Top = 2
        Action = actAddClient
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButtonEditClient: TToolButton
        Left = 25
        Top = 2
        Action = actEditClient
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButtonDeleteClient: TToolButton
        Left = 50
        Top = 2
        Action = actDeleteClient
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButtonFilterPayment: TToolButton
        Left = 75
        Top = 2
        Hint = #1058#1086#1083#1100#1082#1086' '#1088#1072#1073#1086#1090#1072#1091#1097#1080#1077' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1080
        Action = actFilterPayment
        Caption = #1090#1086#1083#1100#1082#1086' '#1088#1072#1073#1086#1090#1072#1091#1097#1080#1077' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1080
        ParentShowHint = False
        ShowHint = True
      end
    end
    object cxgClients: TcxGrid
      Left = 2
      Top = 30
      Width = 439
      Height = 245
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      PopupMenu = PopupMenu
      TabOrder = 1
      LookAndFeel.Kind = lfOffice11
      LookAndFeel.NativeStyle = False
      object cxgClientsDBTableView1: TcxGridDBTableView
        OnDblClick = cxgClientsDBTableView1DblClick
        NavigatorButtons.ConfirmDelete = False
        DataController.DataSource = dsWorkers
        DataController.KeyFieldNames = 'id_worker'
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsCustomize.ColumnFiltering = False
        OptionsCustomize.ColumnGrouping = False
        OptionsCustomize.ColumnHidingOnGrouping = False
        OptionsCustomize.ColumnMoving = False
        OptionsCustomize.ColumnSorting = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsSelection.CellSelect = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.HeaderEndEllipsis = True
        Styles.Selection = DM.sSelection
        Styles.Header = DM.sHeader
        object cxgClientsDBTableView1DBColumn3: TcxGridDBColumn
          Caption = #1059#1074#1086#1083#1077#1085
          DataBinding.FieldName = 'isoldworker'
          PropertiesClassName = 'TcxCheckBoxProperties'
          HeaderAlignmentHorz = taCenter
          Width = 47
        end
        object cxgClientsDBTableView1lastname: TcxGridDBColumn
          Caption = #1060#1072#1084#1080#1083#1080#1103
          DataBinding.FieldName = 'lastname'
          HeaderAlignmentHorz = taCenter
          Width = 118
        end
        object cxgClientsDBTableView1name: TcxGridDBColumn
          Caption = #1048#1084#1103
          DataBinding.FieldName = 'name'
          HeaderAlignmentHorz = taCenter
          Width = 118
        end
        object cxgClientsDBTableView1patronimyc: TcxGridDBColumn
          Caption = #1054#1090#1095#1077#1089#1090#1074#1086
          DataBinding.FieldName = 'patronimyc'
          HeaderAlignmentHorz = taCenter
          Width = 95
        end
        object cxgClientsDBTableView1address: TcxGridDBColumn
          Caption = #1040#1076#1088#1077#1089
          DataBinding.FieldName = 'address'
          HeaderAlignmentHorz = taCenter
          Width = 150
        end
        object cxgClientsDBTableView1phone: TcxGridDBColumn
          Caption = #1058#1077#1083#1077#1092#1086#1085
          DataBinding.FieldName = 'phone'
          HeaderAlignmentHorz = taCenter
          Width = 70
        end
        object cxgClientsDBTableView1pasport_data: TcxGridDBColumn
          Caption = #1055#1072#1089#1087#1086#1088#1090
          DataBinding.FieldName = 'pasport_data'
          HeaderAlignmentHorz = taCenter
          Width = 81
        end
        object cxgClientsDBTableView1sociality_num: TcxGridDBColumn
          Caption = #1048#1053#1053
          DataBinding.FieldName = 'sociality_num'
          HeaderAlignmentHorz = taCenter
          Width = 37
        end
        object cxgClientsDBTableView1birthday: TcxGridDBColumn
          Caption = #1044#1077#1085#1100' '#1088#1086#1078#1076#1077#1085#1080#1103
          DataBinding.FieldName = 'birthday'
          HeaderAlignmentHorz = taCenter
        end
        object cxgClientsDBTableView1DBColumn2: TcxGridDBColumn
          Caption = #1055#1077#1085#1089#1080#1086#1085#1085#1099#1081' '#1085#1086#1084#1077#1088
          DataBinding.FieldName = 'pensionary'
          HeaderAlignmentHorz = taCenter
          Width = 70
        end
      end
      object cxgClientsLevel1: TcxGridLevel
        GridView = cxgClientsDBTableView1
      end
    end
  end
  object qWorkers: TADOQuery
    Connection = DM.Conection
    CursorType = ctStatic
    Filter = 'isOldWorker=false'
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM workers '
      
        'WHERE   (workers.worker_type <> 2) OR (workers.worker_type IS NU' +
        'LL)'
      'ORDER BY  lastname, name'
      '')
    Left = 80
    Top = 208
  end
  object ActionList: TActionList
    Images = DM.ImageListMain
    Left = 72
    Top = 8
    object actAddClient: TAction
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1085#1086#1074#1086#1075#1086' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
      ImageIndex = 0
      ShortCut = 16449
      OnExecute = actAddClientExecute
    end
    object actDeleteClient: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
      ImageIndex = 1
      OnExecute = actDeleteClientExecute
      OnUpdate = actUpdate
    end
    object actEditClient: TAction
      Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1074#1072#1090#1100
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100' '#1076#1072#1085#1085#1099#1077' '#1087#1086' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1091
      ImageIndex = 2
      ShortCut = 16453
      OnExecute = actEditClientExecute
      OnUpdate = actEditClientUpdate
    end
    object actFilterPayment: TAction
      Caption = 'actFilterPayment'
      Hint = #1060#1080#1083#1100#1090#1088' '#1087#1086' '#1091#1074#1086#1083#1077#1085#1085#1099#1084' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072#1084
      ImageIndex = 7
      OnExecute = actFilterPaymentExecute
    end
  end
  object dsWorkers: TDataSource
    DataSet = qWorkers
    Left = 128
    Top = 208
  end
  object acTemp: TADOCommand
    Connection = DM.Conection
    Parameters = <>
    Left = 128
    Top = 8
  end
  object PopupMenu: TPopupMenu
    Images = DM.ImageListMain
    Left = 160
    Top = 112
    object N1: TMenuItem
      Action = actAddClient
      SubMenuImages = DM.ImageListMain
      Default = True
    end
    object N2: TMenuItem
      Action = actEditClient
    end
    object N3: TMenuItem
      Action = actDeleteClient
    end
  end
end
